home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / database / sr_info.exe / BIT.PRG < prev    next >
Text File  |  1990-04-11  |  1KB  |  35 lines
  1. *** BIT.PRG ***
  2. **  A demonstration program provided by  SUB ROSA PUBLISHING INC.
  3. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  4. **  This program may be copied freely. If it is used in commercial code,
  5. **  please credit the source, Sub Rosa Publishing Inc.
  6. **
  7. **  BIT demonstrates the use of bit( ) function to generate the binary
  8. **  code for characters.
  9. **  BIT is compatible with all current versions of SR-Info and VP-Info.
  10. **
  11. **
  12. **  Sid Bursten and Bernie Melman
  13. **  April, 1990
  14. *
  15. SET RAW ON   ; eliminates spaces between listed output
  16. DO WHILE t   ; perpetual loop terminated by BREAK command
  17.    ACCEPT 'Enter a short string for binary representation: ' TO string
  18.    IF string=' '
  19.       BREAK
  20.    ENDIF
  21.    ?
  22.    REPEAT (LEN(string)*8) TIMES VARYING position ; 8 bits * number of chars
  23.       BIT_VAL =  IFF(BIT(string,position),1,0) ; note use of IFF( ) function
  24.       ?? str(bit_val,1,0) ; .. and STR( ) to format output
  25.       IF MOD(position,8)=0 ; .. and MOD( ) to space between characters
  26.          IF col()>60
  27.             ?
  28.          ELSE
  29.             ?? ' '
  30.          ENDIF
  31.       ENDIF
  32.    ENDREPEAT
  33. ENDDO
  34. *** end of BIN.PRG ***
  35.